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School of Medicine, 
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Introduction 


The package consists of a program, DRIVER, a segment of it, 
PRINT, and two data files, QTEXT and PTEXT. It is designed 
to administer a series of questions in an interactive, branching 
manner, to record and print a summary of the answers, and to 
generate a file of these for later reference. 

The questions supplied are of a pediatric medical nature, and 
are intended to relieve the doctor of the burden of personally 
eliciting some of the repetitious and standardised parts of the 
pediatric history, but the programs could administer without 
change, any series of questions. The questions need not be 
medical in nature. 


Requirements 


Any OS/8 system with BASIC. Our configuration comprises 8K 
core, one DEC tape as the system device, and an ASR33 teletype. 
Devices are not specified for the files in the programs, the 
system device being assumed; other users will wish to adapt 
these to their own configurations, in order to achieve greater 
efficiency. 

The programs store the answers temporarily as an array before 
creating a tape file. Users with a greater selection of 
peripherals may wish to modify the programs to create the files 
as the answers are entered. 


Description 


Questions are read from file QTEXT and printed on the teletype. 
The first two characters of the first line of each question are 
used to define the type of question (primary or modifying) and 
















and the number of lines of to be read. 

A choice of responses (RTEXT) is printed on the teletype 
immediately after the question. The responses may be any 
suitable terms, but are commonly No/Don't know/Yes/Don't 
understand, and a code for this format has been included. 


Primary questions can only be answered by No/Don't know/Yes, 
etc. If a primary question is answered by 'Yes', further 
related questions (modifying questions) are read from QTEXT 
and printed. The modifying questions may have No/Yes, etc. 
or free RTEXT. If the reply to a primary question is "No' 
or 'Don't know', the modifying questions are still read from 
the file but not printed. A 'Don't understand' reply causes 
the teletype bell to ring and the program loop back to re-enter 
the reply. 


The replies are stored as an array. Following completion of 
the last question text corresponding to all possible replies 
to a single question is read from PTEXT and one printed, 
depending on the recorded answer. 

The coded numeric replies are then stored as a tape file. 

The summary may be generated again from the coded file by 
running the program PRINT 


Operation 


1. Load the files to the system (or other) device using 
PIP 


Recommended file names:- DRIVER. BA 

PRINT. BA 

QTEXT 

PTEXT 


2. When the system is loaded and responds with a " . " , 
type R BCOMP (CR) where (CR) = return key. 

3. When the system responds with a " * " , type DRIVER. BA (CR) 
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4. The program should then compile and start, typing 
"WHAT IS THE PATIENT NUMBER?" Respond by typing 
any string up to 6 characters to identify the person 
to be interviewed, e.g. AB1029 (CR) 


5. A series of questions will follow. The first is a 
dummy, for practise only. The last line of each 
question is always "YOUR ANSWER IS?" Reply by 
typing the most appropriate numeric character between 
1 and 9 e.g. 3 (CR) 
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When the last question has been answered, a summary 
will be printed. If the need arises to terminate the 

program before all of the questions have been administered, 
type '99' as a reply to any question. A summary will 
be generated for the questions answered. e.g. in reply 
to "YOUR ANSWER IS?" type 99 (CR) 


The running of program PRINT is as for DRIVER, except that 
the reply to the question "WHAT IS THE PATIENT NUMBER" must 
be the name of a file previously created by DRIVER e.g. 
AB1029 (CR) 


Example 

Shown below is a sample run showing the initial dialogue, a 
primary and a modifying question, exit using 99, and the 
printed summary of the two questions. 
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. K oCOMP 
*DR I OER • BA 

WHAT IS THE PA TIENT NUMBER?UDOE 


PRACTISE G HOG Si NG AN AIMS WEH • 

THE CHILD W£ aRE TALKING ABOUT IS: 
1. A BOY 
■ 2 . A GI ri L 


Yijljri ANSWER IS? 


--PRESS THE • 1 * OR THE * 2 ' KEY--- 

-THEN THE 'RETURN’ KEY OWEH HERE 



0K t THAT'S FINE, HERE WE GO 


WHEN THE MOTHER WAS PREGNANT WITH THIS CHILD 

WAS SHE TOLD BY DOCTOR OR MIDWIFE 

THAT SHE HAD TOXAEMIA OR HIGH BLOOD PRESSURE? 


1 NO 

2 DON'T KNOW 

3 YES 

9 DON'T UNDERSTAND 
YOUR ANSWER IS? 3 

WERE ANY DRUGS OR MEDICINES PRESCRIBED TO TREAT 
THE TOXAEMIA? 

1 NO 

2 DON'T KNOW 

3 YES 

9 DON'T UNDERSTAND 
YOUR ANSWER IS?99 


THAT WAS THE LAST GUESTION. THANK YOU FOR YOUR HELP 
GOODBYE JDOE 


PAEDIATRIC SUMMARY GONE 03/09/73 


*** PKENATAL HISTORY *** 

TOXAEMIA:wo DRUGS PRESCRIBED 

GUESTIONS ANSWERED 'DONT UNDERSTAND’: 0 
TOTAL GUESTIONS ANSWERED: 2 
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DKlv/h'K BA 


1 .0 09-AUG-73 

90 HEM PROGRAM DRIVER 

100 REM THIS PROGRAM BRANCHES THRU MlJLT I CHOICE QUESTIONS 
110 REM SET VARIABLES TO STARTING ''ALUES 
120 PRINT "VHmT IS THE PATIENT NUMBER"; \IMPUT MS 
130 DIM A(171),TS(60> 

140 FOR K= 1 TO 1 70 \LET A OO =0 \NEXT K 
150 FILE #1:"NTEXT" 

160 PRINT\PRI NT "PRACTISE CHOOSING AN ANSWER." 

170 PRIMTNPRIMT "THE CHILD WE ARE TALKING ABOUT IS:" 

160 PRINT " l. A BOY" 

193 PRINT " 2. A GIRL" 

200 PRINT 

205 PRINT "YOUR ANSWER IS?"\PKINT 

210 PRINT "--PRESS THE '1' OR THE *2* KEY-" 

220 PRINT " -THEN THE • RETURN • KEY 

230 INPUT J 

240 PRINT "OK* THAT•S FI NIP HERE WE GO-"\PRINT 

250 LET K=1\LET U=1\LET 3 = 1 
26’0 REM READ GITEXT M DEF NO OF LINES 

270 REM T DEF TYPE l=ftKlM* 7=MULTI QTEXT » 8 = MULTI HTEXT » 
280 INPUT #1:T$\IF END *1 THEN 800 
290 LET M=WAL<SEGMT$, 1 ,1 ) ) 

300 LET T = VaLC SEGS ( T$* 2* 2 ) ) 

310 LET T$=SEGSCT$*3*60> 

320 IF T = 1 THEN 3 60 
330 IF C<>1 THEN 370 

340 if rod then 360 

350 PRINT " 1 "I 

36D PRINT Ts> 

370 FOR H=2 TO M 
380 INPUT *>1:T$ 

390 IF T = 1 TliEN 430 
400 IF C<>1 THEN 440 

410 IF Tort THEN 430 

420. PRINT HJ 
430 PRINT T$ 

440 NEXT tl 

450 REM READ M’JLTI ft TEXT 
460 IF T=7 THEN 280 
470 KEM YES/NO rtTEXT 
480 IE T =1 THEN 510 
490 IF Col THEN 760 
500 IF T=8 THEN 560 
510 PRINT 
520 PRINT "1 NO" 

530 PRINT "2 DON'T KNOW" 

540 PRINT "3 YES" 

550 PRINT "9 DON'T UNDERSTAND" 

560 PRINT 

570 PRINT "YOUR ANSWER IS"; 

560 INPUT A(JO 

590 IF A00=99 Then B00 

600 IF A(10<>9 THEN 630 


OVER HERE" 


=QTHER 
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61 0 PHI NTNPR 1 NT "PLEASE CALL HOSTESS" \PK I NT PUTC7) 

620 LET DCJ>=K\LET J = J + 1 \G0 TO SSU 

630 HEM CHECK FOR ILLEGAL ANSWERS 

643 IF T<>8 THEN 660 

650 IF AC K) <=M + 1 THEN 690 

660 IF ACK)< =3 THEN 690 

670 PH I NT "ANSWER IMCORHECT-PLEASE CALL jIOSTESS" ; PMT C 7 > 5 PfJT C 7 ) 

660 PRIMTJ PMT(7 >\GOTO 560 

690 REM STORE ANSWER TO LAST PRIM QUESTION AS C 

700 LET 0=0+1 

713 IF To 1 THEN 750 

720 IF A(10=3 THEN 740 

730 LET C=0\G0 TO 750 

740 LET C=1 

750 PRINT 

760 HEM K COUNTS THE TOTAL QUESTION NUMBER 

770 LET K=K+1 

760 REM NEXT QUESTION 

790 GO TO 260 

600 CLOSE #1 

610 PRINTNPRINT "THAT WAS THE LAST QUESTION. THANK YOU FOR YOUR HELP’ 
520 PRINT "GOODBYE "JIMS 
630 PRINTNPRINT • 

640 FILE #2:"PTEXT" 

650 PRINT "PAEDIATRIC SUMMARY",NS,DATSCX) 

660 PRINT 

070 FOR L=1 TO K-l 
060 INPUT #2:T$ 

690 LET M=VAL(SEGSCTS/1,1)) 

900 LET TS=SEGS(TS,2,60) 

910 IF Mot THEN 960 
920 PRINT 

930 REM ! DENOTES A NEW PaRA 
940 IF T$ ="!" THEN 970 
950 REM PRINT HEADING 
960 PRINTNPRINT TsNPHINT 
970 LET L=L-1\G0 TO 1070 
900 IF A< L) <> 1 THEN 1010 
990 IF TS ="#" THEN 1010 
1000 PRINT TS 
1010 FOR 1=2 TO M 
1020 INPUT #2:T$ 

1030 IF I<>A(L) THEN 10 60 
1040 IF T$="#" THEN 1060 
1050 PRINT TS 
1060 NEXT 1 
1070 NEXT L 
1060 CLOSE #2 

1090 REM STORE CODED ANSWER 
1100 FILEViM #2: NS 

1110 FOR L=1 TO K- 1\PRI NT #2 : A(L) NNEXT L 
1120 PRINT #2:99 
1130 CLOSE #2 

1150 REM PRINT PERFORMANCE VARIABLES 

1160 PRINTNPRINT "QUESTIONS ANSWERED * 00NT UNDERSTANDJ 
1170 FOR M= 1 TO UNPRINT DC M) J NNEXT M 
1160 PRINTNPRINT "TOTaL QUESTIONS ANSWERED:"JW 
1190 END 


READY 
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